home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / twm-listing 9 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  829b  |  35 lines
  1. 10 REM MASKEN-DEMO
  2. 20 :
  3. 30 SYS32168
  4. 35 POKE 650,128 :REM ALLE TASTEN REPEAT-FUNKTION
  5. 40 :
  6. 50 (null)1,5,0,22,39,1,0,"MASKE" :(null)1,6,128
  7. 60 (null)2,2,0,24,39,1,0,"ERGEBNIS" :(null)2,5,128
  8. 70 DIM A$(40)
  9. 80 :
  10. 90 (null) 2,2,5,"SOLL DIE MASKENDEFINITION 'VON HAND'"
  11. 100 (null) 4,2,"MIT WEDIT ODER VOM PROGRAMM AUS MIT"
  12. 110 (null) 6,2,"WPRINT ERFOLGEN ?"
  13. 120 (null) 8,2,"(H=HAND, P=PROGRAMM) ",,"HP",1,HP$
  14. 130 :
  15. 140 IF HP$="H" THEN (null) 24,1,"ENDE MIT 'F3' !" :(null)1 :(null) :GOTO 190
  16. 150 (null)1
  17. 160 FOR I=1 TO 4
  18. 170 (null) I*2-1,1,6,"FELD"I; :(null) 12 :KN=29 :IF I=4 THEN KN=220
  19. 175 FOR K=1 TO KN :PRINT CHR$(164); :NEXT :REM CHR$(164)=STRICH-ZEICHEN
  20. 180 NEXT
  21. 190 :
  22. 200 (null)
  23. 210 N=(null)(0) :(null)0:(null) 0,1,STR$(N)+" FELDER !" :(null)1
  24. 220 (null)
  25. 230 FOR I=1 TO N :(null) A$(I) :NEXT
  26. 240 (null)2 :(null) 5 :PRINTCHR$(147)
  27. 250 (null) 1,1,"IHRE EINGABEN IN FELD..." :PRINT
  28. 260 FOR I=1 TO N
  29. 270 (null) 5 :PRINT I": "; :(null) 15 :PRINT A$(I)
  30. 280 NEXT
  31. 290 (null) CHR$(95),1 :REM CHR$(95)=PFEIL NACH LINKS
  32. 300 (null)
  33. 310 (null)
  34. 320 GOTO 220
  35.